home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #3 / Amiga Plus CD - 1998 - No. 3.iso / pd / text / ged_hexedit / hex / english / openashex.ged < prev    next >
Text File  |  1997-11-13  |  855b  |  2 lines
  1. /* Optimized with RexxOpt 1.8 */
  2. OPTIONS RESULTS;if (LEFT(ADDRESS(),6) ~="GOLDED") then;address 'GOLDED.1';'LOCK CURRENT RELEASE=4';if (RC ~=0) then;exit;OPTIONS FAILAT 6;SIGNAL ON SYNTAX;Filename=" ";'MORE Name=""';'REQUEST File VAR="Filename" Title="Enter File for HexEdit"';if Exists(Filename)=0|Filename==" " then;do;'QUIT';'UNLOCK';exit;end;address 'COMMAND';'c:delete >NIL: t:gedbin';'c:delete >NIL: t:gedhex';'c:delete >NIL: "'||Filename||'.bak.hex"';'c:copy "'||Filename||'" "'||Filename||'.bak.hex"';'golded:tools/hex/hexbin b "'||Filename||'" t:gedhex';address;'OPEN Filetype="HEX" t:gedhex';'SET name=doc value="'||Filename||'"';'QUERY NAME=ordinal var="nummer"';address;"c:delete >NIL: t:gedhex"||nummer;"c:rename >NIL: t:gedhex t:gedhex"||nummer;address;'UNLOCK';exit;SYNTAX:;SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-(";'UNLOCK';exit